home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.scroll proi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  804b  |  26 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 b1=32:b2=40:x=95:y=0:a=0:b=7
  8. 12 poke53281,0:poke53280,0:poke646,7
  9. 15 sys se,100,100:sys sh,1,0,7,1,0
  10. 17 sys zmem,53248,0,0
  11. 20 sys mem,b2,b1:sys clear
  12. 30 sys mem,b1,b2:sys clear
  13. 40 input"[147]text:";n$:an=len(n$)
  14. 50 fori=1toan
  15. 60 a$=mid$(n$,i,1)+chr$(34)
  16. 70 for z=atob
  17. 80 sys ch,z+1,8,0,z
  18. 90 sys wr,x,y,a$
  19. 100 sys le:sysdo
  20. 110 h=b1:b1=b2:b2=h
  21. 115 sys mem,b1,b2
  22. 120 sys co,b2,b1,8
  23. 130 next
  24. 140 next
  25. 150 goto40
  26.